ShowMessage 1 1 '"Die Datei wird jetzt abgespeichert!" "Es wird eine neue Datei mit dem Zusatz .VW erstellt!" "In dieser befinden sich keine Verweiskennungen mehr." "Weiter" "Abbrechen" ""'
IF Result=2 THEN Return
SAVE
Status PathName
DokName=result
If DokName="" then Return
END
Else;do
ShowMessage 1 1 '"Die Verweiskennungen sind schon gelöscht worden!" "Bitte benutzen Sie die Datei ohne die Endung: .VW" "" "Klick" "" ""'
return
End
GetSectionSetup Name
MerkeAbschnitt=Result
RedrawOff
call Time('R')
SetFind WRAP NO
FIND "ð"
loeschen=1
Call VerweiseSuchen
RemoveSection "Verweise" FORCE
GetSectionList "ð"
Anz=0
temp=result
Do ForEver
a=pos("ð",temp)
Anz=Anz+1
If a=0 then;do
Abschnitte.Anz=temp
Leave
End
Abschnitte.Anz=Left(temp,a-1)
temp=Delstr(temp,1,a)
End
Abschnitte.0=Anz
Do i=1 to Abschnitte.0
GotoSection Abschnitte.i
MoveToLine 1 0
Do ForEver
Find "æ"
If RC~=0 then Break
Status ParaPos
Anfpos=Word(result,1) Word(result,2)
Cursor Right
VKennung.i=0
EXTRACT
DO WHILE ((RESULT<":")&(RESULT>"/"))
VKennung.i=VKennung.i*10+Result
Cursor Right
Extract
END
Do Nummer=1 to Verweis.0
If Verweis.Nummer=VKennung.i then Break
End
IF VKennung.i<10 THEN FIND ("æ0"VKennung.i)
ELSE FIND ("æ"VKennung.i)
Status ParaPos
EndPos=Word(result,3) Word(result,4)
MoveToPara AnfPos
ShiftDown
Status FontSize
OldSize=Result
MoveToPara EndPos
ShiftUp
linken=0
Call SchabloneAuswerten
End
End
RedrawOn
Redraw
GotoSection MerkeAbschnitt
MoveToPara Zurueck
say Time('E')
SAVE DokName".VW"
ShowMessage 1 1 '"Die Verweiskennungen wurden gelöscht." "Bitte schließen Sie das Fenster: Suchen" "" "Klick" "" ""'
ShowMessage 1 1 '"Sollten Sie an diesem Dokument weiterarbeiten wollen" "so benutzen Sie bitte die Datei ohne " "die Endung: .VW" "Klick" "" ""'
Return
VerweiseSuchen:
GoToSection "Verweise"
MoveToLine 1 0
a=0;i=0
DO ForEver
FindNext
If RC~=0 then RETURN
Status ParaPos
MoveToPara Word(result,3) Word(result,4)
i=i+1;Verweis.i=0
Extract
DO WHILE ((RESULT<":")&(RESULT>"/"))
Verweis.i=Verweis.i*10+Result
Cursor Right
Extract
END
If Verweis.i=0 then Break
Cursor Right
AltDown;ShiftDown;Cursor Down
Extract;temp=result
ShiftUp;AltUp
a=a+1
b=0
DO ForEver
b=b+1
tab=Pos(d2c(9),temp)
If tab=0 then;do
Abs.b=Left(temp,Length(temp)-1)
LEAVE
End
Abs.b=Left(temp,tab-1)
temp=Right(temp,Length(temp)-tab)
END
Abschnitt.a=Abs.1
VName.a=Abs.2
VText.a=Abs.3
END
Abschnitt.0=a
VName.0=a
VText.0=a
Verweis.0=i-1
Do i=1 to Verweis.0
GotoSection Abschnitt.i
MoveToLine 1 0
If Verweis.i<10 then Find "ð0"Verweis.i
Else Find "ð"Verweis.i
If (RC=0&loeschen=1) then Delete
GetSectionSetup FirstPage PagePrefix
Parse Var result FP PP
Status Page "Insert"
Seite=result
AktSeite=Seite-FP+1
Seite.i=PP||AktSeite
End
Seite.0=i
GotoSection MerkeAbschnitt
MoveToPara Zurueck
Return
SchabloneAuswerten:
Schablone=MerkeSchablone
If loeschen=1 then Delete
If linken=1 then Call Schreiben
Text=""
Do ForEver
a=pos("%",Schablone)
If a=0 then;do
Text=Text||Schablone
Leave
End
Text=Text||Left(Schablone,a-1)
Schablone=Delstr(Schablone,1,a)
next=Left(Schablone,1)
Schablone=Delstr(Schablone,1,1)
Select
When upper(next)="A" then Text=Text||Abschnitt.Nummer
When upper(next)="K" then Text=Text||VText.Nummer
When upper(next)="S" then Text=Text||Seite.Nummer
Otherwise nop
End
End
EXTRACT
IF Result~=" " THEN TYPE " "
Else Cursor Right
Type Text
If linken=1 then Call Schreiben
EXTRACT
IF Result~=" " THEN
IF Pos(Result,".,!?)")=0 THEN TYPE " "
Else NOP
Else Cursor Right
Return
Schreiben:
Status FontWidth
OldWidth=result
STATUS FontColor
OldColor=result
Width 4
FontColor "Weiß"
Type "æ"
IF Verweis.Nummer<10 THEN TYPE "0"||Verweis.Nummer
